home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu005.dms / pu005.adf / Morse Code / CWID2 < prev    next >
Text File  |  1988-01-19  |  1KB  |  24 lines
  1. '10 MINUTE CW ID AUDIO PROGRAM. 10/86. KMW. PTL.
  2. CLEAR
  3. P=800 ' PITCH
  4. V=255 ' VOLUME
  5. DOT=.85:DASH=2.55
  6. GOSUB CWID
  7. BEGIN:
  8. ON TIMER(500) GOSUB CWID:TIMER ON:SLEEP:GOTO BEGIN
  9. STOP
  10. CWID:
  11.  
  12. SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DASH,0,0  'I
  13. SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,40,0,0 'D
  14. SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DASH,0,0 'D
  15. SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DASH,0,0:SOUND P,DASH,0,0'E
  16. SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DASH,0,0 'W
  17. SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DASH,0,0 ' B
  18. SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DASH,0,0 ' 3
  19. SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DASH,0,0 ' K
  20. SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DASH,0,0 ' R
  21. SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0
  22. GOTO BEGIN
  23. END
  24.